home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t1.d64 / lottery drawer.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  98 lines
  1. 1 POKE53280,0:POKE53281,0:PRINT"[142][147]";:GOSUB1000
  2. 3 DIML$(9,6):FORI=0TO9:FORJ=0TO6:READL$(I,J):NEXT:NEXT
  3. 5 N=RND(-TI)
  4. 9 INPUT"[154]LOWEST NUMBER IN THE DRAW";LN
  5. 10 INPUT"HIGHEST NUMBER IN THE DRAW";HN:IFLN>HNTHEN9
  6. 11 IFHN>99999THENPRINT"[159]I CAN'T DISPLAY SIX-DIGIT NUMBERS.":END
  7. 20 PRINT"[147]":N=INT(LN+RND(1)*(HN-LN+1))
  8. 30 N$=MID$(STR$(N),2):L=LEN(N$):T=40
  9. 40 FORI=LTO1STEP-1:PRINT"":D=VAL(MID$(N$,I,1)):T=T-8
  10. 45 FORJ=0TO6
  11. 50 PRINTTAB(T);L$(D,J)
  12. 60 NEXT:FORJ=1TO1000:NEXT:NEXT
  13. 65 PRINT"[154]PRESS [167]F5[146][157][157][145][164][164][165] TO CLEAR SCREEN.
  14. 66 [161]G$:[139]G$[179][177]"READ"[167]66
  15. 67 [153]"LOADPRESS THENF7WAITCMDCMDONTOTOFN FOR NEXT NUMBER.
  16. 70 GETG$:IFG$<>"[136]"THEN70
  17. 88 PRINT"[147]":GOTO20
  18. 90 DATA" [169]  [223]"
  19. 91 DATA"[169][146][169]  [223][223]"
  20. 92 DATA" [146]     "
  21. 93 DATA" [146]     "
  22. 94 DATA" [146]     "
  23. 95 DATA"[223][223][146]  [169][146][169]"
  24. 96 DATA" [223][163][163][146][169]"
  25. 100 DATA"  [169] "
  26. 101 DATA"    "
  27. 102 DATA"    "
  28. 103 DATA"    "
  29. 104 DATA"    "
  30. 105 DATA"    "
  31. 106 DATA"  [184] [184]"
  32. 200 DATA"[169][163][163][163][163][223]"
  33. 201 DATA" [146]   [169][146][169]"
  34. 202 DATA"   [169][146][169]"
  35. 203 DATA"  [169][146][169]"
  36. 204 DATA" [169][146][169]"
  37. 205 DATA"[169][146][169]"
  38. 206 DATA" [183][183][183][183][183]"
  39. 300 DATA"[169][164][164][164][164][223]"
  40. 301 DATA" [146]     "
  41. 302 DATA"    [169][146][169]"
  42. 303 DATA"    [167]"
  43. 304 DATA"    [223][223]"
  44. 305 DATA" [146]     "
  45. 306 DATA"[223][163][163][163][163][146][169]"
  46. 400 DATA" "
  47. 401 DATA"  "
  48. 402 DATA"  "
  49. 403 DATA"      "
  50. 404 DATA"    "
  51. 405 DATA"    "
  52. 406 DATA"    "
  53. 500 DATA"      "
  54. 501 DATA" "
  55. 502 DATA" "
  56. 503 DATA"     [223]"
  57. 504 DATA"      "
  58. 505 DATA"      "
  59. 506 DATA"     [146][169]"
  60. 600 DATA"[169]    "
  61. 601 DATA" "
  62. 602 DATA" "
  63. 603 DATA"     [223]"
  64. 604 DATA"  "
  65. 605 DATA"  "
  66. 606 DATA"[223]    [146][169]"
  67. 700 DATA" [175][175][175][175] "
  68. 701 DATA"[169][146][169]"
  69. 702 DATA"[169][146][169]"
  70. 703 DATA"[169][146][169]"
  71. 704 DATA"[169][146][169]"
  72. 705 DATA"[169][146][169]"
  73. 706 DATA"[169]"
  74. 800 DATA"[169]    [223]"
  75. 801 DATA"  "
  76. 802 DATA"[223][223][169][146][169]"
  77. 803 DATA"    [167]"
  78. 804 DATA"[169][146][169][223][223]"
  79. 805 DATA"  "
  80. 806 DATA"[223]    [146][169]"
  81. 900 DATA"[169]    [223]"
  82. 901 DATA"  "
  83. 902 DATA"  "
  84. 903 DATA"[223]     "
  85. 904 DATA"      "
  86. 905 DATA"      "
  87. 906 DATA"      "
  88. 1000 PRINT,"[157][157][154][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  89. 1010 [153],"CMDCMD(null)OPENRANDOM NUMBER DISPLAYCONT(null)
  90. 1020 PRINT,"[157][157][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  91. 1030 [153],"OPEN      BY
  92. 1040 PRINT,"[154]STEVEN DARNOLD
  93. 1050 [153],"P.O. BOX 201
  94. 1060 PRINT,"ALEXANDRA, NEW ZEALAND
  95. 1070 [153]"OPENTHIS PROGRAM SELECTS AND DISPLAYS RANDOM
  96. 1080 PRINT"NUMBERS BETWEEN THE LIMITS YOU SPECIFY.
  97. 1100 [142]
  98.